home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / egascr2.arc / 120COLS.SCR next >
Encoding:
Text File  |  1986-08-05  |  696 b   |  52 lines
  1. N 120COLS.COM
  2. A 100
  3. CLD    
  4. SUB    AX,AX
  5. MOV    ES,AX
  6. ES:    
  7. LDS    SI,[04A8]    ; Get SAV_PTR
  8. ES:    
  9. MOV    WORD PTR [04A8],016C
  10. ES:    
  11. MOV    [04AA],CS    ; Make it point here
  12. PUSH    CS
  13. POP    ES
  14. MOV    DI,016C        ; Move addresses
  15. MOV    CX,001C
  16. REPZ    
  17. MOVSB    
  18. ES:    
  19. LDS    SI,[016C]    ; Get parameter ptr
  20. MOV    DI,0188
  21. MOV    CX,05C0
  22. REPZ            ; Copy parameters    
  23. MOVSB    
  24. PUSH    CS
  25. POP    DS
  26. MOV    WORD PTR [016C],0188
  27. MOV    [016E],CS
  28. MOV    SI,0149        ; Put new values in
  29. MOV    DI,0648
  30. MOV    CX,0023
  31. REPZ    
  32. MOVSB    
  33. MOV    DX,0748        ; Remain resident
  34. INT    27        ; New values follow
  35. DB    78,18,0E
  36. DW    1800
  37. DB    01,03,00,03
  38. DB    AB
  39. DB    87,77,7D,22,78,27
  40. DB    6C,1F,00,0D,06,07
  41. DB    00,00,00,00,5E,2B
  42. DB    5D,3C,0F,5E,0A,A3
  43. DB    FF
  44.  
  45. R CX
  46. 6C
  47. W
  48. Q
  49.  
  50.  
  51.  
  52.